home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 May / EnigmA AMIGA RUN 18 (1997)(G.R. Edizioni)(IT)[!][issue 1997-05][EAR-CD II].iso / programs / write / macro / numbertext.wpl < prev   
Text File  |  1996-09-18  |  381b  |  29 lines
  1. VAR
  2.   x,y,len,n,from,to: NUMBER;
  3.  
  4. BEGIN
  5.   IF _marked=2 THEN
  6.     from:=_markAY;
  7.     to:=_markBY;
  8.   ELSE
  9.     from:=1;
  10.     to:=_length;
  11.   END;
  12.   len:=StrLen(STRING(to));
  13.  
  14.   Silent;
  15.  
  16.   FOR x:=from TO to DO
  17.     Goto([1,x]);
  18.     n:=len-StrLen(STRING(x));
  19.     FOR x:=1 TO n DO
  20.       WriteText(" ");
  21.     END;
  22.     WriteText(STRING(x));
  23.     WriteText(": ");
  24.   END;
  25.  
  26.   Window(0,0,0,0);
  27.  
  28. END.
  29.